VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsFunctions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Public Function numbersonly(ByVal nNumber As String) As String
    
Dim strDecimal1
Dim strDecimal2
Dim strDecimal3
Dim strDecimal4
Dim strDecimal5
    
    strDecimal1 = InStr(nNumber, ".")
    strDecimal2 = InStr(nNumber, ",")
    strDecimal3 = InStr(nNumber, "/")
    strDecimal4 = InStr(nNumber, "**")
    strDecimal5 = InStr(nNumber, ":")
    
    If strDecimal1 <> 0 Or strDecimal2 <> 0 Or strDecimal3 <> 0 Or strDecimal4 <> 0 Or strDecimal5 <> 0 Then
        numbersonly = "This field does not accept decimal points. Please round it off to the nearest rand."
    Else
        numbersonly = ""
    End If
End Function
